home *** CD-ROM | disk | FTP | other *** search
- ; NewIcons Installer Script
- ; $Ver: 38.3 (8-Jan-95)
- ; Written by Philip A. Vedovatti
- ; for Program Author Nicola Salmoria,
- ; with many thanks for his fine programming work.
- ; German translation by Volker Schleifstein
- ; Entertaining by Pink Floyd :-)
-
- (set @default-dest "SYS:C")
-
- (set #bad-kick
- (cat "\n\nTut mir leid! Sie müssen Workbench 2.0 oder"
- "höher haben, um dieses Programm nutzen zu können."))
-
- (set #hello-message
- (cat "\nVielen Dank, daß sie NewIcons ausprobieren, die"
- "\nrevolutionäre graphische Benutzeroberfläche für den"
- "\nAmiga. Bitte lesen Sie die Dokumentation, damit Sie"
- "\ndie Dokumentation, damit Sie dieses Programm voll"
- "\nnutzen können. Diese Installation wird nichts in"
- "\nIhrem System löschen. Ihre alten WB Piktogramme"
- "\nwerden nimmer noch vorhanden sein, obwohl Sie sie"
- "\nauf Ihrem Bildschirm nicht sehen können. Wenn Sie"
- "\nirgend etwas während der Installation nicht"
- "\nverstehen, klicken Sie die \"Hilfe|\" Taste an, die"
- "\nwährend der ganzen Installation vorhanden ist."
- "\n\nHIER ANKLICKEN UM FORTZUFAHREN"))
-
- (set #install-which
- (cat "\nWelche Teile vom NewIcons System möchten Sie"
- "\ngerne auf Ihrer Festplatte installieren?\n"))
-
- (set #install-library
- (cat "\n\nKopiere die NewIcon.library nach LIBS:."
- "\nSie wird für die Piktogramm Installation benötigt"))
-
- (set #install-library-help
- (cat "\n\n Diese Library wird von NewIcons und"
- "\n während der Installation benötigt."))
-
- (set #install-icons
- (cat "\n\nInstalliere die NewIcons Programme in Ihrem C:"
- "\nVerzeichnis und die NewIcon Abbilder in Ihrer SYS:"
- "\nPartition."
- "\n\nIhre alten Piktogramme werden NICHT gelöscht."
- "\n\nACHTUNG: Bitte vergewissern Sie sich, daß Sie den"
- "\nStandard Amiga 'list' Befehl in Ihrem Kommandopfad"
- "\nhaben, bevor Sie weitermachen."))
-
- (set #install-icons-help
- (cat "\n\nDie neuen Piktogramme werden in den 'Tool"
- "\nTypes' Ihrer bestehenden .info Dateien"
- "\ngespeichert. Diese 'Tool Type' Zeilen werden"
- "\nunsichtbar sein, wenn NewIcons läuft, so daß"
- "\nder Betrieb für den Anwender überschaubar"
- "\nbleibt."))
-
- (set #install-newicons
- (cat "\n\nKopiere die Hauptdateien von Newicons nach C:"
- "\nund die newicon.library nach Libs:"))
-
- (set #install-newicons-help
- (cat "\n\nDieser Abschnitt installiert NewIcons, Injectbrush"
- "\nund PatchOpenWB in Ihrem C: Verzeichnis."
- "\nZusätzlich wird die newicon.library in Ihrem"
- "\nVerzeichnis LIBS: abgelegt."))
-
- (set #tools-dest
- (cat "\nIn welchem Verzeichnis möchten Sie die NewIcon"
- "\nEinstellungswerkzeuge installiert haben?\n"))
-
- (set #startup-newicon
- (cat "\n\nFüge eine Zeile in Ihrer S:User-Startup ein,"
- "\ndamit Newicons bei jedem Systemneustart"
- "\nautomatisch gestartet wird."))
-
- (set #install-deficons
- (cat "\n\nInstalliere das DefIcons Programm in Ihrem C:"
- "\nVerzeichnis, und kopiere die Standard Piktogramme"
- "\nin IhrEnvarc:sys Verzeichnis."))
-
- (set #install-deficons-help
- (cat "\nDieser Abschnitt installiert das Deficons Programm"
- "\nund kopiert die benötigten Standardpiktogramme in Ihr"
- "\nENVARC: Verzeichnis."))
-
- (set #move-olddefs-dir
- (cat "\nDie Installationsroutine wird Ihre alten Standard-"
- "\npiktogramme zur Sicherheit woanders ablagern."
- "\nWo soll ich zu diesem Zweck ein Verzeichnis"
- "\nanlegen?"))
-
- (set #move-olddefs-help
- (cat "\nDieser Abschnitt legt ihre alten Standard-"
- "\npiktogramme an einem sicheren Platz ab."
- "\nWenn Sie auf Ihre alten Piktogramme zurück-"
- "\ngreifen wollen, haben Sie sie zur Verfügung."))
-
- (set #move-olddefs
- (cat "Verschiebe Ihre alten Standardpiktogramme nach \n"
- destdir))
-
- (set #install-envarc
- (cat "\nKopiere die Standardpiktogramme und das 'Brainfile'"
- "\nnach ENVARC:, so daß DefIcons sie benutzen kann.\n"))
-
- (set #install-envarc-help
- (cat "\n\nDieser Abschnitt installiert die Standard-"
- "\npriktogramme, die DefIcons zur Darstellung von"
- "\nDateien benutzt, die kein eigenes Piktogramm"
- "\nhaben."))
-
- (set #startup-deficons
- (cat "\n\nFüge eine Zeile in Ihrer S:user-Startup Datei"
- "\nein, damit DefIcons bei jedem Systemstart"
- "\nzur Verfügung steht."))
-
- (set #powb-message
- (cat "\n\nWenn Sie NewIcons installiert haben, müssen Sie die"
- "folgende Zeile in Ihre S:Startup-Sequence einfügen:\n\n"
- "C:PatchOpenWB\n"
- "\num einen Fehler im OS 3.x zu beheben."
- "\n\n Die Zeile muß hinter Setpatch und vor"
- "\nIPrefs eingefügt werden."))
-
- (set #exit-message
- (cat "Bitte starten Sie Ihr System neu, damit NewIcons\n"
- "und/oder Deficons voll aktiviert werden."
- "\n\n\nViel Spaß mit NewIcons!"))
-
- (set #docs-dest
- (cat "Wohin hätten Sie gerne die NewIcons Dokumentation im"
- "\nAmigaguide Format installiert?"))
-
- ; ------------------------------
- ; Check Kickstart Version
- ; ------------------------------
-
- (if (< (getversion "LIBS:version.library") (* 37 65536))
- (abort #bad-kick)
- )
-
- (message #hello-message)
-
- ; ------------------------------
- ; What should I install?
- ; ------------------------------
-
- (set InstallOpt
- (askoptions (prompt #install-which)
- (help @askoptions-help)
- (choices "NewIcons" "DefIcons" "Dokumentation")
- )
- )
-
- ; ------------------------------
- ; Install NewIcon.library
- ; ------------------------------
-
- (copylib
- (source "/libs/newicon.library")
- (dest "libs:")
- (prompt #install-library)
- (help #install-library-help)
- (confirm)
- )
-
- ;-------------------------------------------------------
- ;Install icon images, NewIcons, and icon support files
- ;-------------------------------------------------------
-
-
- (if (BITAND InstallOpt 1)
-
- ((message #install-icons)
-
- (execute "Install_Icons"
- (help #install-icons-help)
- )
-
- (copylib
- (prompt #install-newicons)
- (source "/C/NewIcons")
- (dest "c:")
- (help #install-newicons-help)
- )
-
- (copylib
- (source "/C/InjectBrush")
- (dest "c:")
- )
-
- (copylib
- (source "/C/PatchOpenWB")
- (dest "c:")
- )
-
-
- (set destdir
- (askdir
- (prompt #tools-dest)
- (help @askdir-help)
- (default "Sys:Utilities")
- )
- )
-
- (copyfiles
- (source "/Utilities/CopyNewIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/CreateDefaultIcon")
- (dest destdir)
- (infos)
- )
-
- (copyfiles
- (source "/Utilities/KillNewIcon")
- (dest destdir)
- (infos)
- )
-
- (startup "NewIcons"
- (prompt #startup-newicon)
- (command "NewIcons")
- (help @startup-help)
- )
- )
- )
-
- ;------------------------------
- ;Install Deficons
- ;------------------------------
-
- (if (BITAND InstallOpt 2)
-
-
- ((set destdir
- (askdir
- (prompt #move-olddefs-dir)
- (help #move-olddefs-help)
- (default "Sys:Storage")
- )
- )
-
- (set destdir
- (tackon destdir "Old_Def_icons")
- )
-
- (makedir destdir
- )
-
- (copyfiles
- (prompt #move-olddefs)
- (source "Envarc:sys")
- (dest destdir)
- (pattern "def#?")
- (help #move-olddefs-help)
- )
-
- (copylib
- (prompt #install-deficons)
- (source "/C/DefIcons")
- (dest "C:")
- (help #install-deficons-help)
- (confirm)
- )
-
- (copyfiles
- (prompt #install-envarc)
- (source "/envarc")
- (dest "ENVARC:")
- (all)
- (infos)
- (help #install-envarc-help)
- )
-
- (startup "DefIcons"
- (prompt #startup-deficons)
- (command "DefIcons")
- (help @startup-help)
- )
- )
- )
-
-
- ;------------------------------
- ;Install Documentation
- ;------------------------------
-
- (if (BITAND InstallOpt 4)
-
- ((set destdir
- (askdir
- (prompt #docs-dest)
- (help @askdir-help)
- (default "Help:")
- )
- )
- (copyfiles
- (source "/NewIcons.guide")
- (dest destdir)
- (infos)
- )
- )
- )
-
- (message #powb-message)
-
- (exit #exit-message)